Hackers Magazine 57/CdHackersMagazineNr57.iso/Software/Programming/RJTextEd.exe/{app}/InstallData/Scripts/examples/OpenTemplateFile.pas

Pascal/Delphi Source File | 2007-10-23 | 472 b | 24 lines

// A simple pascal script to open a template file.
// You can assign a keyboard shortcut to the script.

function GetFilePath: WideString;
begin
   Result := MainApp.AppDataPath;
   Result := Result + '\Templates\Html\New_UTF-8.htm';
end;

procedure OpenFile(sz: WideString);
begin
   if not MainApp.OpenFile(sz) then
      ShowMessage('Could not open the file!!!');
end;

var
   s: WideString;

begin
   s := GetFilePath;
   OpenFile(s);
end.